home *** CD-ROM | disk | FTP | other *** search
/ Anatomy & Physiology Int…ve e-Source (5th Edition) / Seeley Stephens Tate - Anatomy and Physiology Interactive e-Source Fifth Edition (0-07-240154-0)(Release 1.0)(2000).iso / IE / 0009 / IE_S4.CAB / IE_4.CAB / MSHTMLER.DLL / HTML / EDLINK.DLG < prev    next >
Text File  |  1999-03-18  |  9KB  |  342 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
  2. <HTML id=dlgLink style="font-family: MS Shell Dlg; font-size: 8pt;
  3. width: 36.7em; height: 12.3em; ">
  4. <HEAD>
  5. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  6. <TITLE>Hyperlink</TITLE>
  7. <SCRIPT>
  8. function callHelp(elm)
  9. {
  10. if (null != elm.helpid)
  11. {
  12.  window.showHelp(elm.helpfile, "" + parseInt(elm.helpid),
  13.   "popup");
  14. }
  15. else
  16. {
  17.  if ("BODY" != elm.tagName)
  18.  {
  19.   callHelp(elm.parentElement);
  20.  }
  21. }
  22. } 
  23. function btnCancelClick()
  24. {
  25. window.close();
  26. } 
  27. function getTextRange(elm)
  28. {
  29. var r = elm.parentTextEdit.createTextRange();
  30. r.moveToElementText(elm);
  31. return r;
  32. } 
  33. function mouseClick()
  34. {
  35. if (window.event.srcElement.id.substring(0,3)
  36.  == "txt")
  37. {
  38.  return;
  39. }
  40. if (window.event.button == 2)
  41. {
  42.  callHelp(window.event.srcElement);
  43. }
  44. } 
  45. function txtDefaultESC()
  46. {
  47. if (event.keyCode == 27)
  48. {
  49.  window.close();
  50.  return;
  51. }
  52. } 
  53. window.onerror = HandleError
  54. var L_Dialog_ErrorMessage = "An error has occurred in this dialog.";
  55. var L_ErrorNumber_Text = "Error: ";
  56. function HandleError(message, url, line)
  57. {
  58. var str = L_Dialog_ErrorMessage + "\n\n" 
  59.  + L_ErrorNumber_Text + line + "\n"
  60.  + message;
  61. alert (str);
  62. window.close();
  63. return true;
  64. }
  65. var g_fOKEnabled = false; 
  66. var g_fURLLoaded = false; 
  67. function findAnchor(range)
  68. {
  69.  var rangeWorking;
  70.  var elmWorking;
  71.  var index;
  72.  elmWorking = range.parentElement()
  73.  while ("HTML" != elmWorking.tagName)
  74.  {
  75.   if ("A" == elmWorking.tagName)
  76.   {
  77.    return elmWorking;
  78.   }
  79.   else
  80.   {
  81.    elmWorking = elmWorking.parentElement
  82.   }
  83.  }
  84.  rangeWorking = range.duplicate();
  85.  rangeWorking.collapse(true);
  86.  rangeWorking.moveEnd("character", 1);
  87.  while (rangeWorking.compareEndPoints("EndToEnd", range) < 0)
  88.  {
  89.   rangeWorking.move("Character");
  90.   if (null != findAnchor(rangeWorking))
  91.   {
  92.    return findAnchor(rangeWorking);
  93.   }
  94.  }
  95.  return null;
  96. } 
  97. function getProtocolFromURL(strURL)
  98. {
  99.  var index;
  100.  return strURL.substring(0, strURL.indexOf(":") + 1);
  101. } 
  102. function updateProtocolSel()
  103. {
  104.  var index;
  105.  var strProtocol = getProtocolFromURL(txtURL.value);
  106.  selProtocol.value = strProtocol;
  107.  if (selProtocol.value != strProtocol)
  108.  {
  109.   selProtocol.value = "";
  110.  }
  111. } 
  112. function updateProtocolTxt()
  113. {
  114.  var strSlashProts = " file:ftp:gopher:http:https:";
  115.  var strProtocolTxt = getProtocolFromURL(txtURL.value);
  116.  var strProtocolSel = selProtocol.value;
  117.  var strTempURL;
  118.  if ("//" == (txtURL.value.substring(strProtocolTxt.length,
  119.   strProtocolTxt.length + 2)))
  120.  {
  121.   strProtocolTxt = strProtocolTxt + "//";
  122.  }
  123.  strTempURL = txtURL.value.substring(strProtocolTxt.length);
  124.  if (0 < strSlashProts.indexOf(strProtocolSel))
  125.  {
  126.   strProtocolSel = strProtocolSel + "//";
  127.  }
  128.  txtURL.value = strProtocolSel + strTempURL;
  129. } 
  130. function setOKState(fKeyPress)
  131. {
  132.  var htmlKeyAlt = 18;
  133.  if (!g_fURLLoaded)
  134.  {
  135.   if (!fKeyPress || htmlKeyAlt != event.keyCode)
  136.   {
  137.    if ((("" == txtURL.value) || (txtURL.value == selProtocol.value)
  138.     ||(txtURL.value == selProtocol.value + "//"))
  139.     == g_fOKEnabled)
  140.    {
  141.     btnOK.disabled = g_fOKEnabled
  142.     g_fOKEnabled = !g_fOKEnabled;
  143.    }
  144.   }
  145.   else
  146.   {
  147.    window.setTimeout("setOKState(false)", 10);
  148.   }
  149.  }
  150. } 
  151. function bdyLoad()
  152. {
  153.  var globalDoc = window.dialogArguments;
  154.  var rngMaster;
  155.  var rngLink;
  156.  var elmLink;
  157.  document.onhelp  = new 
  158.   Function("callHelp(window.event.srcElement)");
  159.  document.onmouseup = new Function("mouseClick()");
  160.  selProtocol.onchange = new Function("updateProtocolTxt()");
  161.  btnOK.onclick = new Function("btnOKClick()");
  162.  btnCancel.onclick = new Function("btnCancelClick()");
  163.  txtURL.onfocus = new Function("txtURL.select()");
  164.  txtURL.onkeyup = new Function("setOKState(true)");
  165.  txtURL.onkeypress = new Function("txtDefaultESC()");
  166.  if ("Control" == globalDoc.selection.type)
  167.  {
  168.   rngMaster = globalDoc.selection.createRange();
  169.   if (1 == rngMaster.length)
  170.   {
  171.    rngMaster = getTextRange(rngMaster(0));
  172.    rngMaster.select();
  173.   }
  174.  }
  175.  if (("Text" == globalDoc.selection.type) ||
  176.   ("None" == globalDoc.selection.type))
  177.  {
  178.   rngMaster = globalDoc.selection.createRange();
  179.   elmLink = findAnchor(rngMaster);
  180.   if (null != elmLink)
  181.   {
  182.    rngLink = getTextRange(elmLink);
  183.    if (rngLink.compareEndPoints("StartToStart", rngMaster) < 0)
  184.    {
  185.     rngMaster.setEndPoint("StartToStart", rngLink);
  186.    }
  187.    if (rngLink.compareEndPoints("EndToEnd", rngMaster) > 0)
  188.    {
  189.     rngMaster.setEndPoint("EndToEnd", rngLink);
  190.    }
  191.    rngMaster.select();
  192.    if ("" != elmLink.href)
  193.    {
  194.     txtURL.value = elmLink.href;
  195.     txtURL.href = elmLink.href;
  196.     g_fURLLoaded = true;
  197.     btnOK.disabled = false;
  198.    }
  199.    updateProtocolSel();
  200.   }
  201.  txtURL.focus();
  202.  txtURL.select();
  203.  setOKState(false);
  204.  }
  205. } 
  206. function IsRangeEmpty( range )
  207. {
  208.  var tempRange;
  209.  tempRange = range.duplicate();
  210.  result = tempRange.compareEndPoints( "StartToEnd", range );
  211.  if ( result == 0 )
  212.  {
  213.   return true;
  214.  }
  215.  else
  216.  {
  217.   return false;
  218.  }
  219. }
  220. function btnOKClick()
  221. {
  222.  var globalDoc = window.dialogArguments;
  223.  var cmdCreateLink = "CreateLink";
  224.  var cmdUnlink  = "Unlink";
  225.  var range = globalDoc.selection.createRange();
  226.  var strSlashProts = " file:ftp:gopher:http:https:";
  227.  var strProtocol = selProtocol.value; 
  228.  var dupRange;
  229.  var initialRange;
  230.  var iRight;
  231.  var fUseExecCommand = true;
  232.  if ("" == txtURL.value)
  233.  {
  234.   range.execCommand(cmdUnlink, false);
  235.   window.close();
  236.   return;
  237.  }
  238.  if (g_fURLLoaded && (txtURL.value == txtURL.href))
  239.  {
  240.   window.close();
  241.   return;
  242.  }
  243.  updateProtocolSel();
  244.  if (0 < strSlashProts.indexOf(strProtocol))
  245.  {
  246.   strProtocol = strProtocol + "//";
  247.  }
  248.  initialRange = range.duplicate();
  249.  if ( IsRangeEmpty( range ) )
  250.  {
  251.   range.text = txtURL.value;
  252.   fUseExecCommand = false;
  253.  }
  254.  else
  255.  {
  256.   dupRange = range.duplicate();
  257.   iRight = dupRange.moveEnd( "Character", 2 );
  258.   if ( iRight < 2 && dupRange.htmlText == "" )
  259.   {
  260.    range.text = txtURL.value;
  261.    fUseExecCommand = false;
  262.   }
  263.  }
  264.  if ( fUseExecCommand )
  265.  {
  266.   range.execCommand(cmdCreateLink, false, txtURL.value);
  267.  }
  268.  else
  269.  {
  270.   dupRange = range.duplicate();
  271.   dupRange.move( "Character", -1 );
  272.   elmParent = dupRange.parentElement();
  273.   if (elmParent.tagName == "A")
  274.   {    
  275.    elmParent.href = txtURL.value;
  276.   }
  277.   else
  278.   {
  279.    range.setEndPoint( "StartToEnd", initialRange );
  280.    range.execCommand(cmdCreateLink, false, txtURL.value);
  281.   }
  282.  }
  283.  window.close();
  284. } 
  285. </SCRIPT>
  286. </HEAD>
  287. <BODY id=bdy style="font-family: MS Shell Dlg; font-size: 8pt;
  288. background: threedface; color: windowtext;"
  289. onLoad="bdyLoad()" scroll=no>
  290. <FIELDSET id=fldLink style="font-family: MS Shell Dlg; font-size: 8pt; 
  291. position: absolute; left: 0.98em; top: .8em; width: 25.76em; 
  292. height: 7.9em;">
  293. <LEGEND id=lgdLink>
  294. Hyperlink Information
  295. </LEGEND>
  296. </FIELDSET>
  297. <DIV id=div2 style="font-family: MS Shell Dlg; font-size: 8pt; position: absolute;
  298. left: 1.82em; top: 2.8899em; width: 2.66em; height: 1.2168em; ">
  299. <LABEL id=lblProtocol FOR=selProtocol tabIndex=-1 helpid="35550" 
  300. helpfile=msoe.hlp>
  301. <u>T</u>ype:
  302. </LABEL>
  303. </DIV>
  304. <select id=selProtocol size=1 ACCESSKEY=t tabIndex=50
  305. style="font-family: MS Shell Dlg; font-size: 8pt; position: absolute;
  306. left: 5.04em; top: 2.7378em; width: 6.44em; height: 2.1294em; "
  307. helpid="35550" helpfile=msoe.hlp>
  308. <OPTION id=optOther value="">     (other) </OPTION>
  309. <OPTION id=optFile value="file:">   file: </OPTION>
  310. <OPTION id=optFtp value="ftp:">    ftp: </OPTION>
  311. <OPTION id=optGopher value="gopher:">   gopher: </OPTION>
  312. <OPTION id=optHttp value="http:" SELECTED> http: </OPTION>
  313. <OPTION id=optHttps value="https:">   https: </OPTION>
  314. <OPTION id=optMailto value="mailto:">   mailto: </OPTION>
  315. <OPTION id=optNews value="news:">   news: </OPTION>
  316. <OPTION id=optTelnet value="telnet:">   telnet: </OPTION>
  317. <OPTION id=optWais value="wais:">   wais: </OPTION>
  318. </select>
  319. <DIV id=div3 style="font-family: MS Shell Dlg; font-size: 8pt; position: absolute;
  320. left: 1.82em; top: 5.9319em; width: 2.52em; height: 1.2168em; ">
  321. <LABEL id=lblURL FOR=txtURL tabIndex=-1 helpid="35550" 
  322. helpfile=msoe.hlp>
  323. <u>U</u>RL:
  324. </LABEL>
  325. </DIV>
  326. <input accesskey=u ID="txtURL" value="http://" type=text size=35
  327. maxlength=1024 tabIndex=15 helpid="35550" helpfile=msoe.hlp
  328. style="font-family: MS Shell Dlg; font-size: 8pt; position: absolute;
  329. left: 5.04em; top: 5.6277em; width: 20.72em; height: 2.1294em; ">
  330. <BUTTON id=btnOK tabIndex=35 DISABLED=1 helpid="28443" helpfile="windows.hlp"
  331. style="font-family: MS Shell Dlg; font-size: 8pt; position: absolute;
  332. left: 28em; top: 1.521em; width: 7em; height: 2.2em; " type=submit>
  333. OK
  334. </BUTTON>
  335. <BUTTON id=btnCancel tabIndex=40 helpid="28444" helpfile="windows.hlp"
  336. style="font-family: MS Shell Dlg; font-size: 8pt; position: absolute;
  337. left: 28em; top: 4.1067em; width: 7em; height: 2.2em; " type=reset>
  338. Cancel
  339. </BUTTON>
  340. </BODY>
  341. </HTML>
  342.